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DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE], 

CodeDefs: FROM "codedefs" USING [CCIndex, CodeCCIndex, JumpCCIndex] , 
ControlDefs: FROM "controldefs" USING [FieldDescriptor] , 
TableDefs: FROM "tabledefs" USING [TableNotif ier]; 

PeepholeDefs: DEFINITIONS - 
BEGIN 

PeepState: TYPE » RECORD[ 
c: CodeDefs. CodeCCIndex, 
bp, cp: ARRAY [1. .3] OF WORD, 
b: CodeDefs. CodeCCIndex, 
binst: AUoDef s.BYTE , 
bmin: BOOLEAN, 
ap: ARRAY [1..3] OF WORD, 
cinst: AUoDef s .BYTE, 
cmin: BOOLEAN, 
a: CodeDefs. CodeCCIndex, 
ainst: A1 toDef s.BYTE, 
amin: BOOLEAN]; 

JumpPeepState: TYPE = RECORD[ 
c: CodeDefs. JumpCCIndex, 
bp, cp: ARRAY [1. .3] OF WORD, 
binst: AUoDef s .BYTE , 
bmin: BOOLEAN, 
b: CodeDefs. CodeCCIndex, 
cinst: AUoDef s .BYTE , 
cmin: BOOLEAN]; 

SetReallnst: PROCEDURE [BOOLEAN]; 

SetSourcelndex: PROCEDURE [CARDINAL]; 

InitParametersABC: PROCEDURE [p: POINTER TO PeepState]; 

InitParametersBC: PROCEDURE [p: POINTER TO PeepState]; 

InitParametersC: PROCEDURE [p: POINTER TO PeepState]; 

InitJParametersBC: PROCEDURE [p: POINTER TO JumpPeepState]; 

SlidePeepStateZ: PROCEDURE [p: POINTER TO PeepState, ci: CodeDefs. CodeCCIndex]; 

STidePeepStatel: PROCEDURE [p: POINTER TO PeepState, ci: CodeDefs .CodeCCIndex] ; 

cpeepz: PROCEDURE [start: CodeDefs .CodeCCIndex] ; 

HalfByteLocal: PROCEDURE [c: CodeDefs .CCIndex] RETURNS [BOOLEAN]; 

Loadlnst: PROCEDURE [c: CodeDefs. CCIndex] RETURNS [BOOLEAN]; 

PackPair: PROCEDURE [l.r: [0..16)] RETURNS [w: WORD]; 

UnpackPair: PROCEDURE [w: WORD] RETURNS [1,r: [0..16)]; 

UnpackFD: PROCEDURE [d: ControlDefs . Fiel dDescriptor] RETURNS [p,s: CARDINAL]; 

MCO: PROCEDURE [i: AUoDef s .BYTE . minimal: BOOLEAN]; 

de1ete2: PROCEDURE [a,b: CodeDefs .CCIndex]; 

deletes: PROCEDURE [a,b,c: CodeDefs .CCIndex]; 

PeepholeZNotify: TableDefs . TableNotif ier; 

PeepholeUNotify: TableDefs . TableNotif ier; 

END. 


